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General System Utilities 





The subprograms provided in this section are intended to function as 
enhancements to the HP-71 BASIC language. The majority of the 
routines are complementary to HP-71 keywords. For example, the 
keyword PWIDTH sets the maximum number of characters per line of 
PRINT'ed output. The subprogram PWIDTH returns the current PWIDTH 
setting. With such a subprogram/keyword pair, the user can write a 
program that queries the HP-71 for the current PWIDTH, saves the 
value, alters the PWIDTH for a program-specific reason, and returns 
the PWIDTH to its previous state when finished. 


Using the Subprograms 


Each subprogram is intended to be used in a fashion similar to that of 
a standard BASIC keyword. Once a subprogram is loaded into HP-71 
Memory, it can be called from the keyboard or from a user's program. 


EXAMPLE : 


From the keyboard, 
DIM A$ 
AS="aBcDeFgH" 
CALL LWRCS(AS) 
A$ displays "abcdefgh". 


In a program, 
10 DIM A$[84] 
20 LINPUT ‘Your name ? ';AS$ 
30 CALL LWRCS(AS) 
40 DISP A$ 
50 END 


The subprograms do little or no error checking. Those programs that 
take parameters assume that their values are correct. Neither is 
there any error trapping: those errors that occur will suspend the 
program. 


Loading the Subprograms 


Loading the subprograms into the HP-71 is a straight-forward operation 
which involves copying the code from the provided listing into your 
computer. It must be stressed that the code as it appears in HP-71 
memory must, in most instances, exactly match the provided listing. 
This is especially true with the POKE statement. The parameters for 
POKE must be identical to those given in the listing or disastrous 
results (including a memory reset) may occur. 


The listing contains 23 different and independent subprograms. It is 
obvious that few users will have need of every subprogram provided. 
They have therefore been written so that the user may extract any 
subprogram or group of subprograms desired. All that is involved is to 
identify the desired subprogram(s) and copy the code from SUB to END 
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SUB. The line numbering is not important, as long as the lines are 
ordered in the computer as they are in the listing. 


CONTRAST (C) 


CMDSTK(C) 


DELAY (D,C) 


DISPLAY (DS$) 


ENDLINE (ES) 


LTRIM(LS) 


LWRCS (L$ ) 


OPTROUND (0$ ) 


PWIDTH(P) 


REPEAT (RS$,N,CS$) 


REVERSE(R$) 


Ms o 
GSul 
Subprogram Descriptions 


Returns the current contrast setting (0-15) to 
simple numeric variable C. 


Returns the current maximum number of levels in the 
command stack (1-16) to simple numeric variable C. 


Returns the row-wise delay parameter to D and the 
column-wise (character) delay to C. The values 
returned are in the range 0 to 7 + 30/32, in 
increments of 1/32, and INF. 


Returns the numeric display format to D$ in the 
form "STD", "FIX n", "SCI n", or "ENG n". The 
dimensioned length of D$ must be greater than or 
equal to the length of the string to be returned or 
a fatal error (program suspension) will result. 
The maximum length of the returned string is 6 
characters. n is an integer from 0 to ll. 


Returns the current PRINT end-of-line sequence (1 
to 3 characters). Note that the string returned 
may not (and probably will not) be DISP'layable or 
PRINT'able. The dimensioned length of E$ must be 
greater than or equal to the length of the string 
to be returned or a fatal error will result. 


Removes leading (left-hand) spaces from a string 
variable. 


Transforms all uppercase characters in a string 
variable to lowercase. 


Returns the numeric rounding mode in the form 
"NEAR", "NEG", "POS", or "ZERO". The character 
dimension of O$ must be greater than or equal to 
the length of the string to be returned or a fatal 
error (program suspension) will result. The 
maximum length of the returned string is 4 
characters. 


Returns the current maximum-length of PRINT'ed 
lines: the parameter of the PWIDTH command. 


Fills C$ with N copies of the R$. C$ must be 
dimensioned to a length that is greater than or 
equal to N times the length of R$. For example, 
CALL REPEAT('HI !',9,C$) requires C$ to be 
dimensioned to at least 9*4, or 36 (DIM C$[36]). 


Reverses the order of the characters in RS. 
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RTRIM(R$) 


SETDISP(S$) 


SETROUND (S$) 


SETCMDST (xX) 


SETSYSFL(S$) 


SETUSRFL(S$) 


STAT(S$) 


SYSFLAG(S$) 


USERFLAG (U$ ) 


WIDTH (W) 


WINDOW (W,L) 


ZAPSPCS(Z$) 


Removes trailing (right-hand) spaces from a string 
variable. 


Sets or resets the display mode given a string of 
the form generated by the DISPLAY(D$) subprogram. 


Sets or resets the rounding mode given a string of 
the form generated by the OPTROUND(O$) subprogram. 


Sets the maximum number of levels in the command 
stack to the value of X (from 1 to 16). Values of 
X that are less than 1 will be taken as 1. Values 
of X that are greater than 16 will be taken as 16. 
The command stack will be empty after execution of 
this subprogram. 


Sets or resets the states of all alterable system 
flags given a string of the form returned by the 
SYSFLAG(S$) subprogram. S$ may be of any length 
though only the first 8 characters will be used by 
the subprogram. Strings of less than 8 characters 
will affect only the higher numbered (closer to 0) 
flags. 


Sets or resets the states of all user flags given a 
string of the form returned by the USERFLAG(SS$) 
subprogram. S$ may be of any length though only 
the first 16 characters will be used by the 
subprogram. Strings of less than 16 characters 
will affect only the lower numbered (closer to 0) 
flags. 


Returns the current statistical array name. S$ 
must be dimensioned to a length that is greater 
than or equal to the length of the returned string 
or a fatal error will occur. The maximum length of 
the returned string is 2. 


Returns the PEEKS of the system-flag memory. S$ 
must have a character dimension of at least 8. 


Returns the PEEK$ of the user-flag memory. US$ must 
have a character dimension of at least 16. 


Returns the current maximum display width: the 
parameter of the WIDTH statement. 


Returns the current window start (W) and end (L): 
parameters of the WINDOW statement. 


Removes all spaces from a string variable. 
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* ; Listing 
GSW 


SUB CONTRAST(C) 
C=HTD ( PEEK$ ("2E3FE",1) ) 
END SUB 
{ 
SUB CMDSTK(C) 
C=HTD ( PEEKS ("2F976",1))+1 
END SUB 
! 
SUB DELAY(D,C) 
AS=PEEK$ ("2F946",4) 
DEF FNR(BS$) 
IF BS="FF" THEN FNR=INF ELSE FNR=HTD(B$)/32 
END DEF 
D=FNR(A$[4]&A$[3,3]) 


C=FNR(A$[2,2]&A$[1,1]) 

END SUB 

! 

SUB DISPLAY (D$) 

BS=PEEKS ("2F6DC",2) 

D$="STDFIXSCIENG" [MOD(HTD(B$[1,1]),4)*3+1][1,3] 
STD 

IF D$#"STD" THEN DS=D$&" "&STRS(HTD(BS[2]) ) 
POKE "2F6DC",BS$ 

END SUB 

! 

SUB ENDLINE(E$) 

ES="" 

L=HTD ( PEEK$ ("2F95A",1) ) 

A$=PEEK$ ("2F95B",L) 

FOR I=2 TO L STEP 2 


ES=ES$&CHRS$(HTD(AS[I,I]&A$[I-1,I-1])) 
NEXT I 

END SUB 

! 

SUB TRIMLEFT(L$) 

FOR I=1 TO LEN(LS) 

IF L$[{I,1]#" “ THEN 'DONE' 

NEXT I 

'DONE': LS=L$[TI] 

END SUB 


J 

SUB LWRCS(LS$) 

FOR I=1 TO LEN(LS) 

IF NUM(L$[I])>64 AND NUM(LS$[I])<9l THEN L$[I,1I]=CHR$(NUM(LS$[I])+32) 
NEXT I 

END SUB 

! 

SUB OPTROUND(D$) 

D$="NEARPOS ZERONEG "[HTD(PEEK$("2F6DB",1)) DIV 4*4+1][1,4] 
IF D$[4]=" " THEN DS$=D$[1,3] 

END SUB 

! 

SUB PWIDTH(P) 

AS$=PEEKS ("2F958",2) 
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P=HTD(AS[2]&AS$[1,1]) 
IF NOT P THEN P=INF 
END SUB 

! 

SUB REPEAT(RS,N,CS$) 
cs="" 

FOR I=l TO N 
CS=RS&CS$ 

NEXT I 

END SUB 


! 
SUB REVERSE(AS) 
L=LEN(A$) @ DIM DS$[L] 
FOR I=L TO 1 STEP -1l 
D$=DS$&A$ [ I,I ] 

NEXT I 

AS$=D$ 

END SUB 

1 


SUB RTRIM(A$) 

FOR I=LEN(A$) TO 1 STEP -1 
IF A$[I,1]#" " THEN 'DONE' 
NEXT I 

"DONE': AS=A$[1,I] 
END SUB 

! 

SUB SETDISP(AS) 
GOTO A$[2,2] 
‘I's FIX VAL(AS[4]) @ GOTO 'DONE' 

'C': SCI VAL(A$[4]) @ GOTO 'DONE' 

'N': ENG VAL(A$[4]) @ GOTO 'DONE' 

p's STD 

'DONE': END SUB 

! 

SUB SETROUND(CS$) 

AS=PEEKS ("2F6DB",1) 

AS=DTHS (MOD(HTD(A$),4)+(POS("NEARPOS ZERONEG ",C$)-1)) 
POKE "2F6DB",A$[5,5] 

END SUB 

t 


SUB SETCMDST(X) 

DEF FNRS(AS$)=A$[5]&AS$[4,4]&A$[3,3]&A$S[2,2]&AS[{1,1] 
IF X<l THEN X=1 

IF X>16 THEN X=16 

DIM S$[X*6] 

A=HTD (FNRS ( PEEKS ("2F576",5))) 
FOR I=l TO X 

S$=S$&"000300" 

NEXT I 

ES=FNR$ (DTHS$ (A+X*6) ) 

POKE "2F580",ES&ES&ES 

POKE DTH$(A),S$ 

POKE "2F976",DTHS$(X-1)[5,5] 
ENP SUB 

SUB SETSYSFL(S$) 

POKE "2F6D9",S$[1,8] 
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1120 END SUB 

1130 ! 

1140 SUB SETUSRFL(U$) 

1150 POKE "2F6E9",U$[1,16] i 
1160 END SUB 
1170 ! 

1180 SUB STAT(SS$) 

1190 A$=PEEK$("2F7AD",3) 

FR ee rene nee BEL EPH N DEDEDE ry hehe en re yar te. es HTD(AS$ 
_—3]) 

1210 END SUB 

1220 ! 

1230 SUB SYSFLAG(S$) 

1240 S$=PEEKS("2F6D9",8) 

1250 END SUB 

1260 ! 

1270 SUB USERFLAG (US) 

1280 US=PEEKS$ ("2F6E9",16) 

1290 END SUB 

1300 ! 

1310 SUB WIDTH(W) 

1320 A$=PEEKS("2F94F",2) 

1330 W=HTD(AS[2]&A$[1,1]) 

1340 IF NOT W THEN W=INF 

1350 END SUB 

1360 ! 

1370 SUB WINDOW(W,L) 

1380 AS=PEEKS ("2F471",4) 

1390 W=HTD(A$[2,2]&A$[{1,1])+1 

1400 L=W+HTD(AS[4]&A$[3,3]) 

1410 END SUB 

1420 ! 

1430 SUB ZAPSPCS(2ZS$) 

1440 FOR I=l TO LEN(Z$) 

1450 'MORE': IF Z$[I,I]J=" " THEN Z$[I,I+l1]="" @ GOTO 'MORE' 
1460 NEXT I 

1470 END SUB 


Oe 
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Time and Date Utilities 





The purpose of these routines is to allow the user to perform numeric 
calculations based on time and date. 


Using the Subprograms 


The subroutines are designed to work on numeric data - numbers that 
represent time or date. Time numbers are of the form HH.MMSSDDDD, 
where the integer portion of the number is the number of hours, the 
first two digits (MM) of the fractional portion are the minutes, the 
second two digits (SS) are the number of seconds, and all trailing 
digits (DDDD) are fractions of seconds. Date numbers are of the form 
YYYYMMDD, where YYYY is the four-digit year, DD is the two-digit 
month, and DD is the two digit day. Subprograms are also provided 
that convert between these numbers and formatted time and date 
strings. 


Each subprogram is intended to be used in a fashion similar to that of 
a standard BASIC keyword. Once a subprogram is loaded into HP-71 
memory, it can be called from the keyboard or from a user's program. 


EXAMPLE: 

From the keyboard, 
DIM T,TS$ 
STD 
CALL HMSPLUS(12.235612,5.45281,T) 
T displays 18.092422 
CALL TIMEFMT(T,T$,12) 
T$ displays 06:09:24.22 PM 


In a program, 
0 DIM S,W,TS$ 
20 STD 
30 INPUT "Start, Worked ? ";S,W 
40 CALL HMSPLUS(S,W,T) 
50 CALL TIMEFMT(T,TS,12) 
60 DISP T$;" when done." 
70 END 


The subprograms do little or no error checking. Those programs that 
take parameters assume that their values are correct. Neither is 
there any error trapping: those errors that occur will suspend the 
program. 


Loading the Subprograms. 


Loading the subprograms into the HP-71 is a straight-forward operation 
which involves copying the code from the provided listing into your 
computer. It must be stressed that the code as it appears in HP-71 
memory must, in most instances, exactly match the provided listing. 
This is especially true with the POKE statement. The parameters for 


page 7 


aT 


POKE must be identical to those given in the listing or disastrous 
results (memory reset) may occur. 


The listing contains 13 different subprograms. It is obvious that few 
users will have need of every subprogram provided. Most have 
therefore been written so that the user may extract the subprogram or 
group of subprograms desired. The exceptions are SUB DOW, which 
requires SUB JULIAN; SUB DDAYS also requires SUB JULIAN; and SUB 
DATEPLUS, which requires both SUB JULIAN and SUB DATE. For all other 
subprograms, all that is involved is for the user to identify the 
desired subprogram(s) and copy the code from SUB to END SUB, 
inclusive. The line numbering is not important, as long as the lines 
are ordered in the computer as they are in the listing. 


TROT . 
eT Subprogram Descriptions 


HMS (H1,H2) Converts a number whose integer portion represents 
whole hours (or degrees) and whose fractional 
portion is fractional hours (or degrees) to a 
number of the form H.MMSSDDDD where H is whole 
hours, MM is number of minutes, SS is number of 
seconds and DDDD is fractional seconds. Use of 
INTEGER variables for Hl and/or H2 may cause loss 
of significant information through rounding. 


HR(H1,H2) Converts a number of the form H.MMSSDDDD where H is 
whole hours, MM is number of minutes, SS is number ‘ 
of seconds and DDDD is fractional seconds to a t 
number whose integer portion represents whole hours 
(or degrees) and whose fractional portion is 
fractional hours (or degrees). Use of INTEGER 
variables for Hl and/or H2 may cause loss of 
significant information through rounding. 


HMSPLUS(H1,H2,H3) Adds two HMS formatted numbers to get a third (H1 
and H2 to get H3). Use of INTEGER variables for 
Hl, H2 and/or H3 may cause loss of significant 
information through rounding. 


TIMEFMT (T,TS,F) Converts an HMS formatted number to a time string 
of the form "HH:MM:SS.DDDD". The format (F, either 
12 or 24) determines whether HH is represented in 
twelve or twenty four hour format. If the format 
is 12, " AM", " PM", " MDNT" or " NOON" will be 
appended to the end of the string, and if the 
integer portion of the number is greater than 12, 
the integer portion of the output will have the 
appropriate multiple of 12 subtracted from it so 
that it is 12 or less. A similar statement can be 
made using 24 in 24-hour format. The precision of 
the fractional portion of seconds corresponds to 
the value selected by the user via FIX, SCI or ENG, 
though the displayed value will be in FIX'ed 
format. 
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JULIAN(D,J) 


DATE(J,D) 


DOW(D,D$) 


DOY(D1,D2) 


DDAYS(D1,D2,N) 


DATEPLUS (D1,N,D2) 


TIMENUM(TS,T) 


DATEFMT (D,DS,FS$) 


The length of T$ must be greater than or equal to 
the length of the returned time string or a fatal 
error will occur. The length of the string 
returned varies with the display format and the 
time number. A length of 34 characters is possible 
under extreme circumstances, while a string length 
of less than 25 characters is more common. 


Converts a date formatted number (YYYYMMDD) into 
its Julian day number. JDN's are valid only from 
1/1/4713 BC to any future date where the current 
dating system can be assumed to be in use. Dates 
before 10/4/1582 are considered from the Julian 
calendar while those after are considered from the 
Gregorian calendar. J must be a REAL variable. 


Converts a Julian day number into a date formatted 
number (YYYYMMDD). JDN's are valid only from 
1/1/4713 BC to any future date where the current 
dating system can be assumed to be in use. Dates 
before 2445612 are considered from the Julian 
calendar while those after are considered from the 
Gregorian calendar. D must be a REAL variable. 


Returns the day of week for a given calendar date, 
where the date is given in YYYYMMDD format. The 
character dimension of D$ must be greater than or 
equal to the length of the returned string or a 
fatal error will result. The maximum length of the 
returned string is 9 characters. This subprogram 
requires SUB JULIAN. 


Returns the day of year for the given date. Both 
values are in YYYYMMDD format. 


Returns the number of days between two dates. Both 
dates are expressed in YYYYMMDD format. This 
subprogram requires SUB JULIAN. 


Returns the date number N days different from Dl. 
Both dates are expressed in YYYYMMDD format. The 
number N is a positive or negative integer. This 
subprogram requires SUB JULIAN and SUB DATE. 


Converts a timestring of the format "HH:MM:SS.DDDD" 
to an HMS formatted time number. The suffixes " 
AM" and " PM" are optional. If " PM" is appended 
to the time string and the numeric time depicted is 
less than 12, 12 hours will be added to the output 
(e.g., "12:59:59 PM"), Midnight is considered to 
be 24:00:00 and not 00:00:00. Therefore, 
T$="00:00:01 MDNT" will not progduce valid results. 
Use of an INTEGER variable for T May cause loss of 
significant information through rounding. 


Converts a datenumber into a date string of the 
form "MM/DD/YYYY" or "DD.MM.YYYY" based on the 
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DATENUM(D$,D) 


format specifier (F$, either "MDY" or "“DMY" 
respectively). If the input date string is 
negative, " BC" is appended to the date string. 


The length of D$ must be greater than or equal to 
the length of the returned date string or a fatal 
error will occur. The length of the string 
returned varies with the date number. The maximum 
(reasonable) length of the returned string is 13 
characters. 


Converts datestrings of the format "MM/DD/YYYY" or 
"DD.MM.YYYY" to a datenumber. The suffixes " BC" 
and " AD" are optional. If the suffix " BC" is 
used, the number returned will be negative. 
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-10 
20 
30 
40 
50 

- 60 
70 
80 
90 
100 

- 110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
—210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
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330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
—-440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


Listing 
SUB HMS(H1,H2) 
H2=ABS (FP(H1))*60 
H2=SGN(H1)*(ABS(IP(H1) )+IP(H2)/100+FP(H2)*.006) 
END SUB 
1 
SUB HR(H1,H2) 
M=ABS (FP(H1)*100) 
H2=SGN(H1)* (ABS(IP(H1))+IP(M)/60+FP(M) /36) 
END SUB 
{ 
SUB HMSPLUS(H1,H2,H3) 
H3=(IP(H1)+IP(H2))*3600 
H3=H3+(IP(FP(H1)*100)+IP(FP(H2)*100) )*60 
H3=H3+(FP(H1*100)+FP(H2*100) )*100 
H=H3 DIV 3600 
M=RMD(H3,3600) DIV 60 
S=RMD (H3,60) 
H3=H+M/100+S/10000 
END SUB 
1 
SUB TIMEFMT(T,TS,F) 
DEF FNZS$(A) 
IF A<10 THEN FNZ$="0"&STRS(A) ELSE FNZ$=STRS(A) 
END DEF 
SO=SGN(T) @ T=ABS(T) 
F=F=12 
D$=PEEKS ("2F6DC",2) 
M=IP(FP(T)*100) 
S=FP(T*100)*100 
STD 
TO=RMD(IP(T),24-12*F) 
IF TO=0 THEN T0=T0+24-12*F 
TS=FNZ$(TO)&":"&FNZS(M)&":" 
IF MOD(HTD(D$[1,1]),4) THEN FIX HTD(DS$[2]) 
TS=TS&FNZS(S) 
POKE "2F6DC",D$ 
IF SO<0 THEN T$="-"gTS 
IF NOT F THEN "E" 
IF NOT RMD(T,24) THEN TS=TS$&" MDNT" @ GOTO "E" 
IF NOT RMD(T,12) THEN TS=T$&" NOON" @ GOTO "E" 
IF RMD(IP(T) DIV 12,2) THEN TS=TS$&" PM" ELSE TS=TS$&" AM" 
'E': END SUB 
1 
SUB JULIAN(D,J) 
B=D<0 
M=MOD(ABS(D),10000) DIV 100 
Y=D DIV 10000+B 
IF M<3 THEN M=M+12 @ Y=Y-1 
DO=RMD(ABS(D),100) 
J=IP(365.25*Y-B*,75)+IP(30.6001* (M+1) )+D0+1720995 
IF D>15821004 THEN J=J-Y DIV 100+Y DIV 400+2 
END SUB 


I 

SUB DATE(J,D) 

J0=J<2199161 

C=(3+68569+30*38) DIV (36524.25+J0*.75)-49 
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A=IP (MOD (J+68569+J0*38,36524.25+J0*.75) ) 

D=(A+1) DIV 365.25025 
B=A-IP(365.25*D) 

M=(B+31) DIV 30.59 

DO=B+31-I1P(30.59*M) 
Y=100*C+D+M DIV 11 

IF J<1721421 THEN Y=ABS(Y-1) 
IF M<ll THEN M=M+2 ELSE M=M-10 
=Y*]10000+M*100+D0 

IF J<1721421 THEN D=-D 

END SUB 

! 


SUB DOW(D,D$) 
CALL JULIAN(D,J) 
D$="Mon....Tues...Wednes.Thurs..Fri....Satur..Sun."[RMD(J,7)*7+1][ 


D$[POS(D$,".") ]="day" 
END SUB 
{ 


SUB DOY(D1,D2) 

M=MOD(ABS(D1),10000) DIV 100 

Y=ABS(D1) DIV 10000 

D=RMD (ABS (D1) ,100) 

IF D1>0 THEN L=RMD(Y,4)=0 ELSE L=RMD(Y,4)=1 

IF M<3 THEN D2=(M-1)*(63-L) DIV 2 ELSE D2=IP( (M+1)*30.6)-63+L 
D2=D2+D 

END SUB 

! 


SUB DDAYS(D1,D2,N) 
CALL JULIAN(D1,J1) 
CALL JULIAN(D2,J2) 
N=J2-J1 

END SUB 

{ 


SUB DATEPLUS(D1,N,D2) 

CALL JULIAN(D1,J7) 

CALL DATE(J+N,D2) 

END SUB 

! 

SUB TIMENUM(TS,T) 

C=POS(TS,":") 

S=SGN(VAL(TS)) @ IF NOT S THEN S=1 

T=S*ABS (VAL (T$)+VAL(T$[C+1])/100+VAL(TS[POS(T$,":",C+1)+1])/10000) 
IF (POS(UPRC$(T$),"PM") OR POS(UPRCS$(T$),"MDNT")) AND ABS(T)<12 TH 


EN T=SGN(T)*(ABS(T)+12) 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


END SUB 
! 

SUB DATEFMT(D,DS$,FS$) 

DEF FNZS$(A) 

IF A<10 THEN FNZS="0"&STRS(A) ELSE FNZ$=STRS(A) 

END DEF 

SO=SGN(D) @ D=ABS(D) 

DO$=PEEKS ("2F6DC", 2) 

M=RMD(D,10000) DIV 100 @ DO=RMD(D,100) @ Y=D DIV 10000 

IF UPRC$(F$)="DMY" THEN T=M @ M=DO @ DO=T @ CS$="." ELSE CS$="/" 
STD 

D$=FNZS$ (M) &CS&FNZ$ (D0) &CS$ 
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1120 IF Y<1000 THEN DS=DS«&"0" 

1130 IF Y<100 THEN D$=DS$&"0" 

1140 D$=DS&FNZS$(Y) 

1150 POKE "2F6DC",DO0S$ 

1160 IF S0<0 THEN DS$=DS&" BC" 

1170 END SUB 

1180 ! 

1190 SUB DATENUM(D$,D) 

1200 IF POS(D$,"/") THEN C$="/" ELSE C$="," 
1210 C=POS(D$,C$) 

1220 D=ABS(VAL(D$[1,C-1])) 

1230 M=ABS(VAL(D$[C+1,P0S(D$,C$,C+1)-1])) 
1240 Y=ABS(VAL(DS$[POS(D$,C$,C+1)+1])) 
1250 IF POS(D$,"/") THEN T=D @ D=M @ M=T 
1260 D=D+M*100+Y*10000 

1270 IF POS(UPRCS$(D$),"BC") THEN D=-D 
1280 END SUB 
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Conversion Utilities 
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The purpose of these subprograms is to provide a base of generic 
conversions that can be used both from the keyboard and from within a 
program. The bulk of the routines are concerned with the relatively 
common problem of conversions between decimal feet and feet-inches- 
fractions of inches. Subprograms have been provided to allow both 
conversion to and from decimal feet and feet-inches and to allow 
addition, subtraction, multiplication and division of feet-inch 
formatted numbers. 


A separate, generic, conversion subprogram has also been provided to 
allow conversions between 81 common units. The routine is relatively 
sophistocated in that it not only allows unit-to-unit conversions 
(viz., miles to kilometers) but will also evaluate expressions in 
units (viz., mi/hr/min to m/s*2). The subprogram is also relatively 
easy to modify, so that other commonly used conversion units may be 
added or superfluous units deleted from its list. 


Using the Subprograms 


Each subprogram is intended to be used in a fashion similar to that of 
a standard BASIC keyword. Once a subprogram is loaded into HP-71 
memory, it can be called from the keyboard or from a user's program. 


EXAMPLE: 
From the keyboard, 
DIM F$ 
SCI 5 
CALL FEETADD("12 2 56/64","5 4 28/32",64,F$) 
FS$ displays 17 7 48/64 


In a program, 
10 DIM A$,B$,0$ 
20 STD 
30 INPUT "Lenght A ? ";A$ 
40 INPUT “Lenght B ? ";B$ 
50 CALL FEETADD(AS$,B$,32,0$) 
60 DISP O$;" total ft." 
70 END 


The subprograms do little or no error checking. Those programs that 
take parameters assume that their values are correct. Neither is 
there any error trapping: those errors that occur will suspend the 
program. 


Loading the Subprograms. 


Loading the subprograms into the HP-71 is a straight-forward operation 
which involves copying the code from the provided listing into your 
computer. It must be stressed that the code as it appears in HP-71 
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memory must, in most instances, exactly match the provided listing. 
This is especially true with the POKE statement. The parameters for 
POKE must be identical to those given in the listing or disastrous 
results may occur. 


The listing contains 8 different subprograms. SUB FEETINCH and SUB 
DECFEET are independent of all other subprograms in the listing. 
These two subprograms may be extracted from the listing and used in 
independent programs. All that is involved is for the user to copy 
the code from SUB to END SUB, inclusive. The line numbering is not 
important, as long as the lines are ordered in the computer as they 
are in the listing. All other feet conversion subprograms are 
dependent on these two. Therefore, if any of the others is to be 
used, both SUB FEETINCH and SUB DECFEET must also be present in HP-71 
memory. 


SUB CONVERT is semi-independent. That is to say, it requires SUB 
MAKE, but only sometimes. SUB CONVERT requires the existence in 
memory of data file CONST and text file NAMES. If the files exist, 
SUB MAKE is not required. If they do not exist, SUB MAKE is called to 


generate them. 
if ; w 
CU Miri 
Subprogram Descriptions 


FEETINCH(F,F1,F$) Convert decimal feet (F) to feet, inches and 
fractions (F$) using the specified 
denominator (Fl). The format of F$ is FF II 
ff/Fl, were FF is the number of feet, II is 
the number of inches, ff is the number of 
fractions, and Fl is the denominator of the 
fraction. For example, CALL 
FEETINCH(12.345,16,F$) sets F$ to "12 4 
2/16", or 12 feet 4 and 2/16 inches. Note 
that expressing this number in sixteenths of 
inches causes a loss of accuracy due to 
rounding to the nearest whole sixteenth. 

The exact result is 12 feet 4 and 7/50 
inches. The character dimension of FS$ must 
be large enough to contain the string 
returned by the program or a fatal error 
(program suspended) will result. The length 
of the returned string varies with the value 
of F. 


DECFEET (FS ,F) Convert a compound number in feet and inches 
to decimal feet. F$ must be in the format 
returned by SUB FEETINCH and F must be REAL. 
Example: CALL DECFEET('12 4 2/16',F) sets F 
to 12.34375. 


FEETADD(F1$,F2$,F0,F3$) Add two compound numbers in feet and inches 
(F1$ and F2$) to get a third (F3$). FO is 
the denominator in which the fractional 
portion of F3$ will be expressed. The 
character dimension of F3$ must be large 
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FEETSUB(F1$,F2$,F0,F3$) 


FEETMULT(F1$,F2$,F0,F3$) 


FEETDIV(F1$,F2$,F0,F3$) 


CONVERT (N1,N2,U$) 


enough to contain the string returned by the 
program or a fatal error (program suspended) 
will result. The length of the returned 
string varies with the values of F1$ and 
F2$. 


Subtract two compound numbers in feet and 
inches (Fl1$ and F2$) to get a third (F3$). 
FO is the denominator in which the 
fractional portion of F3$ will be expressed. 
The character dimension of F3$ must be large 
enough to contain the string returned by the 
program or a fatal error (program suspended) 
will result. The length of the returned 
string varies with the values of F1$ and 
F2S. 


Multiply two compound numbers in feet and 
inches (F1$ and F2$) to get a third (F3$). 
FO is the denominator in which the 
fractional portion of F3$ will be expressed. 
The character dimension of F3$ must be large 
enough to contain the string returned by the 
program or a fatal error (program suspended) 
will result. The length of the returned 
string varies with the values of F1$ and 
F2S. 


Divide two compound numbers in feet and 
inches (F1$ and F2$) to get a third (F3$). 
FO is the denominator in which the 
fractional portion of F3$ will be expressed. 
The character dimension of F3$ must be large 
enough to contain the string returned by the 
program or a fatal error (program suspended) 
will result. The length of the returned 
string varies with the values of F1$ and 
F2$. 


Convert Nl to N2 based on US$. US$ may be in 
one of three different formats: units; 
unitsl-units2; -units. In the first case, 
Nl is assumed to have the units expressed in 
U$, and is converted to a number with SI 
units which is returned to N2. In the 
second case, Nl has units "“unitsl" and is 
converted to a number with units "“units2" 
and returned to N2. In the third case, Ni 
is assumed to be in SI units and is 
converted to a number whose units are 
expressed by U$ and which is returned to N2. 
In each case, the units specifiers may be 
any expression of valid units and the 
operators "*", "/", "*" and the delimeters 
"(" and ")". "=" is used to separate 
"units1" from "units2" and to precede the 
units in case 3 above. If the units 
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expression cannot be interpreted by the 
program, it will halt with the error 
"Signaled Op" (if TRAP(IVL)=2, then the 
error will be replaced by a warning and the 
returned value of N2 will be NaN). 


Examples: 


CALL CONVERT(1,X,"FT") converts 1 foot to xX 
meters. xX = 0.3048. 


CALL CONVERT(1,X,"-FT") converts 1 meter to 
X feet. xX = 3.28083989501. 


CALL CONVERT(1,X,"MI-KM") converts 1 mile to 
X kilometers. xX = 1.609344. 
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HP-71 
Abbrev. 


ACRE 
ATM 


BBL 
BCF 


INHG 
INHOH 


KCAL 
KG 
KGF 
KIP 


KM 
KMOL 
KPA 
KSI 
KW 


LBF 
LBM 


MBAR 
MCF 


MG 


Units Provided 


Name 
acre 
atmosphere 
bar 


barrel of petroleum 
billion standard 
cubic feet of gas 
British Thermal 
Unit 

degree Celsius 
calorie 
centimeter 
centipoise 
centistoke 

darcy 

day 

dyne 

erg 

degree Fahrenheit 
foot 

foot of water 
gram 

gallon (U.S.) 
gallon (U.K.) 
horsepower 

(550 ft*lbf/s) 
hour (mean solar) 
inch 

inch of mercury (60 F) 
inch of water (60 F) 
joule ° 

Kelvin 
kilocalorie (IST) 
kilogram 
kilogram force 
kilopound force 
kilojoule 
kilometer 
kilomole 
kilopascal 

kip per square inch 
kilotonne 
kilowatt 

liter 

pound force 

pound mass 

meter 

millibar 

thousand standard 
cubic feet of gas 
millidarcy 
megagram 


Multiplicative 
Conversion 
Constant 


4046.856422 
101325 
100000 
- 1589872949 


1195300 


1055.056 

1 

4.1868 

-O1 

-001 

-000001 
9.869233E-13 
86400 

-00001 
-0000001 
-555555555556 
- 3048 

2988.98 

-001 
-003785411784 
- 004546087 


745.69987 
3600 
0254 
3376.85 
248.84 

1 

1 

4186.8 

1 

9.80665 
4448.221615 
1000 

1000 

1000 

1000 
6894757.2 
1000000 
1000 

-001 

1 

- 45359237 
1 


100 
1.1953 


9.869233E-16 
1000 
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Homogeneous 
SI Units 


m*2 
Pa 
Pa 
m*3 


kg*mol 


> > 
NN 
“N 
u 


> 1Q @ 
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5 As A ae) 


3 
° 
~ 


Pa 


MI 
MIN 


ML 


MMCF 


MMHG 


MOL 
MPA 
MT 


PA 
PSF 


PSI 


SCF 
SCM 
SCMZ 


SPGR 


mile 

minute 

mega joule 
milliliter 
millimeter 

million standard 
cubic feet of gas 
millimeters of 
mercury (60 F) 
meganewton 

month 

mole 

megapascal 
megatonne 

megawatt 

newton 

poise 

Pascal 

pound force per 
square foot 

pound force per 
square inch 

degree Rankine 
second 

standard cubic foot 
(60 F, 14.696 psi) 
standard cubic meter 
(15 C, 101.325 kPa) 
standard cubic meter 
(0 C, 101.325 kPa) 
specific gravity 
relative to water 
(60 F) 

stoke 

tonne (metric ton) 
10000 Btu 

short ton (2000 lbm) 
long ton (2240 lbm) 
torr (0 C) 
micrometer 

watt 

yard 

year 


1609.344 
60 
1000000 
-000001 
-001 


1195.3 


133.3224 
1000000 
2628000 

1 

1000000 
1000000000 
1000000 

1 

ws 

1 


47.88025898 


6894.757293 
-555555555556 
1 


-0011953 
- 0422932 
-0446158 


999.0412333 
-0001 

1000 
105505600 
907.18474 
1016.046909 
133.322 
-000001 

1 

-9144 
31536000 


kg*mol 
kg*mol 
kg*mol 


kg/m*3 
m*2/s 


kg 
kg 


oS SSB 
9 


This list of units was extracted from the HP-41C Petroleum Fluids 


Pac. 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
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Listing 
SUB FEETINCH(F1,F2,F$) 
F=IP(F1) 
I=ABS (IP(FP(F1)*12)) 
FO=ABS (FP(F1*12)*IP(F2) ) 
IF ABS(F2-F0)<=.5 THEN I=I+l @ FO=0 
IF I>=12 THEN I=I-12 @ F=F+SGN(F) 
DS$=PEEKS("2F6DC",2) @ STD 
FS=STRS(F)&" "SSTRS(I)&" " @ FIX 0 
FS=FS&STRS (FO) 


FS=F$[1,LEN(FS)-1]&"/"&STRS(F2) 
FS=FS$[1,LEN(F$)-1] @ POKE "2F6DC",D$ 
END SUB 

{ 


SUB DECPEET(FS$,F) 

FOR I=LEN(F$) TO 1 STEP -1 

IF FS[I,1]#" " THEN 'DONE' 

NEXT I 

'DONE': FS=FS$[1,I1] 

S=SGN(VAL(F$)) @ IF S=0 THEN S=CLASS(S) 
'SPC]': S1=POS(FS$," ") @ IF Sl=1 THEN FS$=F$[{2] @ GOTO 'SPCl' 
'SPC2': S2=POS(FS," ",S1+1) 

IF S2=Sl+l THEN S1=S2 @ GOTO 'SPC2' 
F=VAL(F$) 

IF Sl THEN F=F+S*VAL(F$[S1])/12 

IF S2 THEN F=F+S*VAL(F$[S2])/12 

END SUB 


! 

SUB FEETADD(F1$,F2$,F0,F3$) 
CALL DECFEET(F1$,F1) 

CALL DECFEET(F2$,F2) 

CALL FEETINCH(F1+F2,F0,F3$) 
END SUB 

1 

SUB FEETSUB(F1$,F2$,F0,F3$) 
CALL DECFEET(F1$,F1) 

CALL DECFEET(F2$,F2) 

CALL FPEETINCH(P1-F2,F0,F3$) 
END SUB 

{ 

SUB FEETMULT(F1$,F2$,F0,F3$) 
CALL DECFEET(F1$,F1) 

CALL DECFEET(F2$,F2) 

CALL FEETINCH(F1*F2,F0,F3$) 
END SUB 

1 


SUB FEETDIV(F1$,F2$,F0,F3$) 
CALL DECFEET(F1$,F1) 

CALL DECFEET(F2$,F2) 

CALL FEETINCH(F1/F2,F0,F3$) 
END SUB 

1 

SUB CONVERT (N1,N2,U$) 

GOSUB 'INIT' 

GOSUB 'ZAP' 


FOR I=l TO LEN(US)+1 
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570 
580 
)-1] 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
OP 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
D' 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


IF POS(D$,U$[I,1I]) THEN GOSUB 'DELIMS' @ FP=0 ELSE F=1 
IF US[I,I]="-" THEN GOSUB 'DELIMS' @ K=2 @ V$(1)=V$(1)[1,LEN(V$(1) 


NEXT I 
! 

IF F THEN GOSUB 'DELIMS' 

IF US="F" OR US[1,2]="F-" THEN N1=N1+459.67 
IF uS="C" OR US$[1,2]="C-" THEN N1=N1+273.15 
IF V$(2)=""_ THEN V$(2)="1" 

IF v$(1)="" THEN V$(1)="1" 
N2=N1*VAL(V$(1))/VAL(V$(2)) 

IF US[LEN(U$)-1][1,2]="-F" THEN N2=N2-459.67 
IF US[LEN(US)-1][1,2]="-C" THEN N2=N2-273.15 
GOSUB 'DEINIT' 


END 
! 


'INIT': INTEGER F,1I,J,K,0,P 

O=FLAG(~16,1) 

DIM C$[486],D$[15],D1$[{2],Vv$(2)[250],x$[5] 

D1S$=PEEK$("2F6DC",2) @ STD 

D$="0123456789*/"()" 

ON ERROR GOTO 'ER' 

X$=ADDR$ ( "CONST" ) 

X$=ADDRS ("NAMES") 

GOTO 'OK' 

'BR':; IF ERRN=57 THEN CALL "MAKE" ELSE BEEP 1000 @ DISP ERRMS @ ST 


'OK': OFF ERROR 

ASSIGN #1 TO "CONST" 
ASSIGN #2 TO "NAMES" 
READ #2;C$ 

ASSIGN #2 TO * 

J=1 @ K=1 

RETURN 

' 

'ZAP': FOR I=l1 TO LEN(US) 
'MORE': IF US[I,I]=" " THEN US[I,I]="" @ GOTO 'MORE' 
NEXT I 

RETURN 

1 


'DELIMS': P=(POS(CS,","&US[J,I-l1]&",")-1) DIV 6 
READ #1,P;C 

IF CLASS(P)=-1 THEN C=NAN 

IF U$[{J,I-l]="" THEN C=1 
V$(K)=V$(K)&STRS$(C)&U$[I,I] 


'D':; I=I+l @ IF POS(DS$,U$[I,1I]) THEN V$(K)=V$(K)&US$[I,I] @ GOTO ' 
J=I 

RETURN 

{ 

'DEINIT': POKE “2F6DC",D1$ @ O=FLAG(-16,0) @ RETURN 

END SUB 

7 

SUB MAKE 

=FLAG(-16,1) 


ON ERROR GOTO 'El' 
CREATE DATA CONST,81,8 
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1110 '‘El': ON ERROR GOTO 'E2' 

1120 CREATE TEXT NAMES 

1130 'E2': OFF ERROR 

1140 ASSIGN #1 TO CONST 

1150 ASSIGN #2 TO NAMES 

1160 DIM C$[486],C(81),BS$[5] 

1170 C$=",ACRE, ,ATM,,,BAR,,,BBL,,,¢BCFy + ¢BTU, 5 eCor re eCAlsesCMrrerCPree” 
1180 CS=C$&", CST,» ,Dy ee 7 /DAY, ¢ DYNEy ERG yp pFr ye et ET ep pFTHOH Gy pep ¢GALy 7" 
1190 C$=C$&",GALUK,HP,,,,HRrp- 77 Ieee 2 LNHG, » INHOH Spe 7 1 Kore e sKCALy pKGy ry" 
1200 C$=C$&",KGF,,/KIP,,¢K0e¢7¢KMre¢/KMOL, KPA,» /KSIo 1 ¢KTe ee eKWee re leree 
1210 C$=C$&",LBF, , ,LBM, Mp e717 /MBARy ¢MCF yy eMDy ee eMGy ey eMIy¢,sMIN,, sMJr,," 
1220 CS$=CS$&",ML,,,,MM,,,,/MMCF,,MMHG, ,MN,,,,MO,,,,MOL,,,MPA,,/MT,,++/MWr,," 
1230 CS=CSE",Np pre ePrrerePArne rPSFoeePSlorrReereeSeenr rSCF es SCM 5 SCMZ," 
1240 C$=C$&",SPGR,,ST,,,,Tr +717 THERM, TON, , ,TONUK,TORR, ,UMs rr rWee rrr YDore 
eY¥Reee" 

1250 DATA 4046.856422,101325,1E5,.1589872949,1195300,1055.056,1 

1260 DATA 4.1868,.01,.001,1E-6,9.869233E-13,86400,1E-5,1E-7,5/9,.3048, 
2988.98 

1270 DATA .001,3.785411784E-3 ,4.546087E-3,745.69987,3600, .0254,3376.85 
7248.84 

1280 DATA 1,1,4186.8,1,9.80665,4448.221615,1E3,1E3,1E3,1E3,6894757.2,1 
E6,1E3 

1290 DATA .001,4.44821615, .45359237,1,100,1.1953,9.869233E-16,1E3,1609. 
344,60 

1300 DATA 1E6,1E-6,.001,1195.3,133.3224,1E6,2628E3,1,1E6,1E9,1E6,1,.1,1 
1310 DATA 47.88025898,6894.757293,5/9,1,1-1953E-3,4.22932E-2,4.46158E-2 
1320 DATA 999.0412333,1E-4, 1E3,105505600,907.18474,1016.046909,133.322 
1330 DATA 1E-6,1,.9144,3.1536E7 

1340 READ C() 

1350 PRINT #2;C$ @ ASSIGN #2 TO * 

1360 PRINT #1;C() @ ASSIGN #1 TO * 

1370 O=FLAG(-16,0) 

1380 END SUB 
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The purpose of these routines is to provide a mechanism by which the 
volume label of a mini data cassette may be accessed and by which 
information about the device type and location of the PRINTER IS 
device may be obtained. 


Using the Subprograms 


Each subprogram is intended to be used in a fashion similar to that of 
a standard BASIC keyword. Once a subprogram is loaded into HP-71 
memory, it can be called from the keyboard or from a user's program. 


EXAMPLE: 


From the keyboard, 
DIM V$ 
CALL VOLUME(":TAPE",V$) 
vs displays volume label of tape 


In a program, 
10 DIM V$ 
20 INTEGER I,N 
30 STD 
40 INPUT "Number of drives ? ";N 
50 FOR I=1 TON 
60 CALL VOLUME(":TAPE("&STRS$(I)&")",VS) 
60 DISP "Drive #";I;': ".'&VSéE'"' 
70 NEXT I 
80 END 


The subprograms do little or no error checking. Those programs that 
take parameters assume that their values are correct. Neither is 
there any error trapping: those errors that occur will suspend the 
program. 


Loading the Subprograms. 


Loading the subprograms into the HP-71 is a straight-forward operation 
which involves copying the code from the provided listing into your 
computer. It must be stressed that the code as it appears in HP-71 
memory must, in most instances, exactly match the provided listing. 
This is especially true with the POKE statement. The parameters for 
POKE must be identical to those given in the listing or disastrous 
results (including a memory reset) may occur. 


The listing contains 3 different and independent subprograms. They 
have been written so that the user may extract any subprogram or group 
of subprograms desired. All that is involved is to identify the 
desired subprogram(s) and copy the code from SUB to END SUB. The line 
numbering is not important, as long as the lines are ordered in the 
computer as they are in the listing. 


page 23 


FINDPR(D$) 


VOLUME (D$,N$) 


VOLUMEIS(DS,NS) 


Subprogram Descriptions 


This subprogram locates the PRINTER IS device and 
returns its address to D$. If the PRINTER IS 
device is on the HP-IL, D$ will be the device's 
numeric address. Special cases that are also 
identified are when PRINTER IS "*", “NULL" and 
"LOOP". 


This subprogram queries drive D$ for the volume 
label of its cassette. NS$ must have a character 
dimension of at least 6 or the program will be 
suspended by a "String Ovfl" error. D$ must be a 
valid mass storage identifier. 


This subprogram writes the volume label N$ to the 
cassette in drive D$. The characters in N$ should 
be limited to uppercase alphabet otherwise standard 
HP-71 statements will not be able to access the new 
volume label. Only the first 6 characters of N$ ~ 
will be used. D$ must be a valid mass storage 
identifier. 
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‘eapeVvol 


10 DIM D$,P,x$ 

20 CALL FINDPR(X$) 

30 DISP “PRINTER IS :";X$ 

40 IF x$[1,4]#"LOOP" AND x$#"*" AND X$#"NULL" THEN DISP "AID ";DEVAID( 
X$) 

50 DS=PEEKS ("2F958",2) 

60 D$=D$[2]&D$[1,1] @ P=HTD(D$) @ IF P=0 THEN P=INF 
70 DISP "PWIDTH ";P 

80 END 

90 ! 

100 SUB FINDPR(DS) 

110 DIM A$[3],D1$[2] @ REAL A,L @ A=0 

120 D1I$=PEEKS("2F6DC",2) @ STD 

130 A$=PEEKS ("2F7AC",1) 

140 IF BIT(HTD(A$),3) THEN DS="*" @ GOTO ‘END' 
150 RESTORE IO 

160 PRINT ""; 

170 A$=PEEKS ("2F794",3) 

180 IF AS="00F" THEN D$="NULL" @ GOTO ‘END' 
190 IF AS="FFF" THEN D$="*" @ GOTO 'END' 

200 ! This is either an address or LOOP 

210 AS=A$[3]&A$[2,2]&A$[1,1] @ A=HTD(AS) 

220 L=A DIV 1024+1 

230 IF A$[{2]="00" THEN 'LOOP' 

240 A=BINAND(A,31)+BINAND(A,992) DIV 32/100 
250 IF L>1 THEN D$=STRS(A)&":"&STR$(L) ELSE D$=STR$(A) @ GOTO 'END' 
260 'LOOP': IF L>1 THEN D$="LOOP:"&STR$(L) ELSE D$="LOOP" 
270 'END': POKE "2F6DC",D1$ 

280 END SUB 

290 ! 

300 SUB VOLUME(DS,N$) 

310 A=DEVADDR(D$) 

320 IF A=~l1 OR DEVAID(D$)#16 THEN N$="" @ END 
330 SEND LISTEN A DDL 4 MTA DATA 0,0 

340 GOSUB 'STATUS' 

350 SEND UNL TALK A DDT 2 UNT UNL 

360 GOSUB 'STATUS' 

370 ENTER :A USING "#,8A";NS$ 

380 NS=NS[3,8] 

390 SEND LISTEN A DDL 7 

400 GOSUB 'STATUS' 

410 END 

420 ! 

430 'STATUS': S=SPOLL(A) 

440 IF BIT(S,5) THEN 'STATUS' 

450 IF S THEN BEEP 1000 @ DISP "DRIVE ERROR" @ PAUSE 
460 RETURN 

470 END SUB 

480 ! 

490 SUB VOLUMEIS(DS,N$) 

500 A=DEVADDR(D$) 

510 IF A=-1l OR DEVAID(D$)#16 THEN END 

520 SEND UNL LISTEN A MTA DDL 4 DATA 0,0 

530 GOSUB 'STATUS' 

540 SEND UNL TALK A DDT 2 

550 GOSUB 'STATUS' 


Listing 
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560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


ENTER :A USING "#,8A";RS$ 

NS$=UPRC$ (NS) 

R$[3,8]=(NS$S&" ")(1,6] 

SEND UNL LISTEN A MTA DDL 4 DATA 0,0 

GOSUB 'STATUS' 

SEND UNL LISTEN A MTA DDL 2 DATA RS$(1,7] END NUM(RS[8]) 
GOSUB 'STATUS' 

SEND LISTEN A DDL 7 

GOSUB 'STATUS' 

END 

! 

'STATUS': S=SPOLL(A) 

IF BIT(S,5) THEN 'STATUS' 

IF S THEN BEEP 1000 @ DISP "DRIVE ERROR" @ PAUSE 
RETURN 

END SUB 
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Variable Cross Reference 


_———————————————— —— ——eeeee—eeEeeEeeeeeeeeeeeeeaaoaooaooaoaoaoaoaoaoaoaoaoaoaoaoaoaoaoaoaoeoaoeoeeeeeee—eeeeeeeeeeooaeeeus 


The purpose of this program is to provide a listing of all variables 
contained in a program, and their respective line numbers. Such a 
listing is very useful in the debugging stages of program development. 


Loading the Program. 


Loading the program into the HP-71 is a straight-forward operation 

which involves copying the code from the provided listing into your 
computer. It must be stressed that the code as it appears in HP-71 

memory must, in most instances, exactly match the provided listing. 
This is especially true with the POKE statement. The parameters for 
POKE must be identical to those given in the listing or disastrous 

results (including a memory reset) may occur. 


Program Description 


The program, once begun (via RUN), prompts the user for the name of 
the text file to be referenced. This source file must be TEXT and, 
therefore, the user must TRANSFORM the BASIC program of interest into 
TEXT before the variable cross reference is performed. This text file 
need not reside in :MAIN RAM. It may exist on :TAPE or in a :PORT. 


The program next prompts for the desired width of the PRINTER IS 
device. A proper value for this input is the physical width of the 
output device. This number is necessary for proper formatting of the 
cross reference output. 


Once these two inputs have been given, the program will continue for 
what may be several minutes before generating output. Subprogram 
cross references will be separated from main program references. 
Variable types are not specified except by "$" for string variables, 
"(" for 1 and 2 dimensional arrays and "$(" for string arrays. 
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Listing 
10 DESTROY FS$,P 
20 INPUT "TEXT FILE ? ";FS 
30 INPUT "PRINTER WIDTH ? ";P 
40 PS$=PEEK$ ("2F958",2) 
50 PWIDTH P 
60 DISP "WORKING" 
70 FOR I=l TO P @ PRINT "="; @ NEXT I 
80 PRINT "Variable Cross Reference"; 
90 IF P>25+LEN(F$) THEN PRINT TAB(P-LEN(F$));F$ ELSE PRINT @ PRINT TAB 
((P-LEN(FS$))/2);F$ 
100 FOR I=1 TO P @ PRINT "="; @ NEXT I @ PRINT 
110 PWIDTH P DIV 5%*5 
120 CALL VARIABLE(FS) 
130 POKE "2F958",P$ @ PUT "#38" 
140 END 
150 ! 
160 SUB VARIABLE(FS) 
170 ASSIGN #255 TO FS$ 
180 DIM L$[100],L0$[4],A$[26],D$[23] 
190 INTEGER I,J,K,L,M,0O 
200 O=FLAG(-16,1) @ FO=FLAG(0) 
210 DI$=PEEKS$("2F6DC",2) @ STD 
220 AS="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
230 D$="+-*/()<>[]/\2?#OS*& 23=," 
240 J=0 
250 ! 
260 'NEXTLINE': ON ERROR GOTO "ERROR" @ READ #255;L$ @ OFF ERROR 
270 LS=UPRCS(L$) @ I=6 @ LOS=L$[1,4] 
280 ! 
290 'NEXTCHAR': 
300 IF L$[1I,I]="!" OR L$[I][1,4]="REM " THEN 'NEXTLINE' 
310 IF L$[1I][1,4]="SUB " AND L$[1I-2,1-2]#"D" THEN GOSUB 'SBPRGM' 
320 IF L$[I,IJ="'" OR L$({I,I]='"' THEN I=POS(L$,LS$[I,1],1I+1)+1 
330 IF NOT (POS(AS$,L$[I,1]) AND NOT POS(A$,L$[I+1,I+1])) THEN 'REPEAT' 
340 K=I 
350 'VARS': IF NOT POS(D$,L$[1I,I]) AND I<=LEN(L$) THEN I=I+l @ GOTO 'V 
ARS' 
360 SFLAG 0 
370 FOR L=1 TO J 
380 IF N$(L)=L$[K,1I-(LS[I,1]#"(")] THEN ‘OUT’ 
390 NEXT L 
400 CFLAG 0 
410 '‘ouT': IF FLAG(0,0) THEN 'PUTIN' 
420 J=J+1 
430 DIM N$(J)[4] 
440 N$(J)=LS[K,1-(LS[I,1T]#"(")] 
450 CREATE TEXT "VAR"&STRS(L) 
460 ASSIGN #L TO "VAR"&STRS(L) 
470 'PUTIN': PRINT #L;CHRS$(VAL(LO$[1,2]) )&CHRS$(VAL(LO$[3])) 
480 'REPEAT': IF NOT POS(D$,L$[I,I]) AND I<=LEN(L$) THEN I=I+l @ GOTO 
"REPEAT' 
490 I=I+l 
500 IF I<=LEN(L$) THEN 'NEXTCHAR' ELSE 'NEXTLINE' 
510 'SBPRGM': IF J THEN GOSUB "PRINT" 
520 PRINT "------- " @ PRINT STRS(VAL(LOS))&" "&L$[6] @ PRINT 
530 RETURN 
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540 
550 
560 
570 
580 
590 


'PRINT': IF J=0 THEN RETURN 

FOR M=l TO J @ ASSIGN #M TO * @ NEXT M 

CALL PRINTOUT(NS$(),J) 

RETURN 

"ERROR! : 

IF ERRN#54 THEN DISP ERRMS @ BEEP 1000,.25 @ OFF ERROR ELSE GOSUB 


'PRINT' 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 


O=FLAG(-16,0) @ FO=FLAG(0,F0) @ POKE "2F6DC",D1$ 
END SUB 

! 

SUB PRINTOUT(NS$(),L) 

DIM A$[2],B$[2],T$[4] 

INTEGER I,J,K 

FOR I=1 TO L 

TS="x" 

FOR J=1 TO L 

IF N$(J)<T$ THEN TS=NS(J) @ K=J 

NEXT J 

NS (K)="x" @ BS=" i 

IF TS#"x" THEN PRINT TS 

ASSIGN #K TO "VAR"&STRS (K) 

'MORE': ON ERROR GOTO "OUT" @ READ #K;A$ @ OFF ERROR 
IF A$#B$ THEN PRINT USING "#,XDDDD";NUM(AS$)*100+NUM(AS$[2]) 
BS$=A$ 

GOTO "MORE" 

'OUT': ASSIGN #K TO * 

PURGE "VAR"&STRS(K) 

PRINT @ PRINT 

NEXT I 

L=0 

END SUB 
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System Catalog 





The purpose of this subprogram is to provide a catalog of all LEX 
files and their entries. Since the HP-71 system ROM's are treated as 
LEX files, they are included in the catalog. 


Loading the Program. 


Loading the subprogram into the HP-71 is a straight-forward operation 
which involves copying the code from the provided listing into your 
computer. It must be stressed that the code as it appears in HP-71 
memory must, in most instances, exactly match the provided listing. 


Subprogram Description 


The program will first print the LEX file ID: a two digit hexadecimal 
number. Next, all entries will be printed. The format is as follows: 


Keyword ID: a two digit hexadecimal number. 
Keyword name 


Keyword type: word, function, statement, special word (special words 
do not have keyword ID's). 


If the keyword is a function, it's parameters and their types are 
listed. 


If the keyword is a statement, its legal uses are listed. 


The process is repeated for all keywords in every LEX file. Note that 
not all LEX files contain keywords. 


Sample: 


ID=01 
01 ACS Function 
Parml Numeric 
02 ADDRS Function 
Parml String 
03 ADJABS Statement 
Legal: In program 
After IF 
From KBD 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


Listin 
SUB SYSTCAT 
t 


DEF FNRS(RS) 
R1 s= oo 
FOR J=LEN(RS$) TO 1 STEP -1 
R1S=R1S&R$[J,J7] 
NEXT J 
FNRS=R1$ 
END DEF 
I 
A=HTD (FNRS (PEEK$("2F571",5))) 
'NEXT': SS=FNRS (PEEKS (DTHS(A),7) ) 
IF S$[4,6]#"BFC" THEN A=A+7+HTD(S$[1,3]) @ GOTO 'NEXT! 
A=A+7 
! 
"LEXID': TS$=FNRS$ (PEEKS (DTH$(A),11)) 
PRINT "ID="&T$[10,11] 
C=HTD(T$[1,5]) 
M=HTD(T$[8,9]) 
B=C-13 
B=B+HTD ( FNR$ ( PEEK$ (DTH$(B),4))) 
'LEXENTRY': A$=PEEKS (DTHS$(B),16) 
IF AS[1,2]="FF" THEN 'EOF' ! test for end of LEX file 
ws="""' word name 
L=HTD (PEEK$ (DTHS$(B-1),1))+1 ! # chrs in name 
1 


FOR I=1 TO L STEP 2 ! build name 

WS=WS &CHRS$ (HTD (FNRS (AS$[I,I+1]))) 

NEXT I 

! 

S$=FNRS$ (PEEK$(DTH$(B+L),2)) ! entry type 

IF S$="00" THEN PRINT " -~ ";W$;TAB(14);"Spec Word/FFN" @ GOTO 'NX 


TENTRY' 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
c"; 


PRINT " "2ss;" "ows: 
D=C+(HTD(S$)-M)*9 

E=HTD ( PEEKS (DTH$ (D+8) ,1) ) 

WS="Statement" 

IF E=15 THEN WS$="Function" ELSE IF E=0 THEN WS="Word" 
PRINT TAB(14);Wws 

IF E=15 THEN GOSUB 'FATTRIB' ELSE IF E#0 THEN GOSUB 'SATTRIB' 
'NXTENTRY': B=B+L+3 

PRINT 

GOTO 'LEXENTRY' 

1 

'FATTRIB': E=D+1+HTD(FNRS (PEEKS (DTH$(D+3),5))) 

IF E>1048575 THEN E=E-1048576 

P=HTD (PEEKS (DTHS(E),1) ) 

Q=HTD ( PEEKS (DTH$ (E+1),1)) 

{ 


FOR I=l1 TO Q 

PRINT " Parm";STRS$(1I);TAB(14); 

E=E-1 

X=HTD ( PEEKS (DTH$(E),1)) 

IF I>P THEN PRINT "Opt "; 

IF X>1l THEN PRINT "Num or String"; ELSE IF X>7 THEN PRINT "Numeri 
ELSE PRINT "String"; 
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550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


IF MOD(X,4) THEN PRINT “ Array"; 

PRINT 

NEXT I 

RETURN 

I 

'SATTRIB': PRINT " Legal:"; 

IF E>8 THEN PRINT TAB(14);"In program"; 

IF MOD(E,8) DIV 4 THEN PRINT TAB(14);"After IF"; 
IF MOD(E,2) THEN PRINT TAB(14);"From KBD"; 

PRINT 

RETURN 

\ 

'ROF': IF T$[10,11]#"00" THEN A=A+11 @ PRINT @ GOTO 'LEXID' 
END SUB 
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Appendix A. 
Memory Locations Accessed via PEEKS and POKE 
SSS eee 


address, nibbles - description 


2E3FE, 1 - The display contrast setting defined by the 
CONTRAST statement. The value returned is in the 
range 0 to F, hexidecimal. 


2F471, 4 - The display window as defined by the WINDOW 
statement. The first byte contains the window 
start minus 1 (0,21) and the second contains the 
window length (1,22). 


2F571, 5 ~ Address of main program memory end. Used as a 
pointer to the file chain. 

2F576, 5 - Calc mode stack pointer. 

2F580, 15 - Cale mode stack pointers. 

2F6D9, 8 - The 32 modifiable system flags (-1 through -32). 

2F6E9, 16 - The 64 user flags (0-63). 

2F6DB, 1 - The two least significant bits in this nibble 


contain the option round setting. 


2F6DC, 2 - System flags -13 through 20: display format. Note 
that the lower-case-lock and option-base flags are 
also located in these nibbles. The bits of nibble 
2F6DC represent flags -13 to -16, the least 
significant mapping onto flag -13 and the most 
significant mapping onto -16. In the same fashion, 
the bits of nibble 2F6DD map onto flags -17 to ~-20. 
HTD (PEEK$('2F6DD',1)) returns a decimal number from 
0 to 11 representing (except in STD mode, where 
they are not significant) the number of fractional 
digits to display. 


2F794, 3 ~- PRINTER IS information. 

2F7AC, 1 - HP-IL loop status. Bit 3 indicates whether OFF I0 
has been executed. 

2F7AD, 3 - The current statistical array name. 

2F946, 4 - The first byte is the character delay in 1/32's of 


a second. The second byte is the line delay in 
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1/32's of a second. Values of 255 for either of 
these represents Inf. 


2F94F, 2 - The display width (0-255). If this byte is 0, 
WIDTH is Inf. 


2F958, 2 - The printer width (0-255). If this byte is 0, 
PWIDTH is Inf. 


2F95A, 1 ~ The number of endline nibbles at the end of 
PRINT'ed output (2-6). 


2F95B, 2-6 - The endline sequence at the end of PRINT'ed output 
(1-3 characters). 


2F976, 1 - The number of command stack entries (1 to 16 
represented by 0 to F). 
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